home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / bas_int1.zip / BOOT.BAS < prev    next >
BASIC Source File  |  1991-06-04  |  721b  |  34 lines
  1. '====================================================================
  2. ' Quick Basic Forum
  3. '   Date : 23-May-91
  4. '   From : Matt Hart
  5. 'Subject : Program To Boot
  6. '=================================================================
  7.  
  8. 'To perform a boot, you can call an interrupt.
  9.  
  10. 'First, set up the interrupt TYPE
  11.  
  12. TYPE RegType
  13.    AX AS INTEGER
  14.    BX AS INTEGER
  15.    CX AS INTEGER
  16.    DX AS INTEGER
  17.    BP AS INTEGER
  18.    SI AS INTEGER
  19.    DI AS INTEGER
  20.    FLAGS AS INTEGER
  21. END TYPE
  22.  
  23. 'Now, dim a variable
  24.  
  25. DIM InRegs as RegType
  26. DIM OutRegs as RegType
  27.  
  28. 'Now call the interrupt (you don't have to set anything else)
  29.  
  30. Call Interrupt(CINT(&H19),InRegs,OutRegs)
  31.  
  32. 'That'll warmboot your computer.
  33.  
  34.